home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DDJMAG
/
DDJ9203.ZIP
/
OOPASM.ZIP
/
DBORDER.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-07-12
|
1KB
|
48 lines
.MODEL SMALL
INCLUDE equates.inc
INCLUDE instance.inc
INCLUDE messages.inc
INCLUDE objects.inc
IF1
INCLUDE macros.mac
INCLUDE objects.mac
ENDIF
EXTRN Border:WORD
.CODE
COMMENT %
==============================================================================
Sets Border's instance variables for the double border style.
=============================================================================%
setBorderStyle PROC NEAR
setInst HChar,205,Border,1 ;Set horizontal char
setInst VChar,186,,1 ;Set vertical char
setInst ULChar,201,,1 ;Set upper left char
setInst URChar,187,,1 ;Set upper right char
setInst LLChar,200,,1 ;Set lower left char
setInst LRChar,188,,1 ;Set lower right char
ret
setBorderStyle ENDP
.DATA
defMsg DBorder,\
Refresh,\
<setBorderStyle,,>
defObj DBorder,\
<Border>,\
<>,\
<Refresh>
END